<% Dim CaptchaBMP_Temp Dim CaptchaBMP_myVBArray 'Call initNOF_CaptchaBMP(Session("Captcha_charFontDir"), Session("Captcha_imageChars"), Session("Captcha_bgColor"), Session("Captcha_fgColors"), Session("Captcha_spaceTop"), Session("Captcha_spaceBottom"), Session("Captcha_spaceLeft"), Session("Captcha_spaceRight"), Session("Captcha_spaceInner")) If Request.QueryString("cid") <> "" Then Call JinitNOF_CaptchaBMP(Session("nof_" & Request.QueryString("cid") & "_CaptchSettings")) CaptchaBMP_Temp = bContent.join(" &H") CaptchaBMP_myVBArray = Split(CaptchaBMP_Temp, " ") End If Sub CaptchaBMP_generateSrc Dim i Dim b Response.Buffer = True Response.ContentType = "image/bmp" Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 for i=0 to UBound(CaptchaBMP_myVBArray) b = CInt(CaptchaBMP_myVBArray(i)) Response.BinaryWrite ChrB(b) next Response.End End Sub If Request.QueryString("cid") <> "" Then CaptchaBMP_generateSrc End If %>